﻿Imports System

Namespace System.Workflow.Activities.Rules
    <Serializable> _
    Public Class RuleActionTrackingEvent
        ' Methods
        Friend Sub New(ByVal ruleName As String, ByVal conditionResult As Boolean)
            Me.ruleName = ruleName
            Me.conditionResult = conditionResult
        End Sub


        ' Properties
        Public ReadOnly Property ConditionResult As Boolean
            Get
                Return Me.conditionResult
            End Get
        End Property

        Public ReadOnly Property RuleName As String
            Get
                Return Me.ruleName
            End Get
        End Property


        ' Fields
        Private conditionResult As Boolean
        Private ruleName As String
    End Class
End Namespace

